home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / asize / autoglob.bas next >
Encoding:
BASIC Source File  |  1995-05-09  |  2.7 KB  |  64 lines
  1. '***********************************************
  2. '* * *   G L O B A L   C O N S T A N T S   * * *
  3. '***********************************************
  4. '===============================
  5. '   API specific Constants
  6. '===============================
  7. '-------------------------------
  8. '*** GetDeviceCaps() - Device Parameters
  9. '-------------------------------
  10. Global Const LOGPIXELSX = 88    '  Logical pixels/inch in X
  11. Global Const LOGPIXELSY = 90    '  Logical pixels/inch in Y
  12. '-------------------------------
  13. '*** GetSystemMetrics()
  14. '-------------------------------
  15. Global Const SM_CXVSCROLL = 2      'Width of the arrow bmp on a vert scroll bar
  16. Global Const SM_CYCAPTION = 4      'Height of a window caption
  17. Global Const SM_CYMENU = 15        'Height of a single line menu bar
  18. Global Const SM_CXFRAME = 32       'Width of a window frame which can be sized
  19. Global Const SM_CYFRAME = 33       'Height of a window frame which can be sized
  20. '-------------------------------
  21. '*** Text Alignment Options
  22. '-------------------------------
  23. Global Const TA_LEFT = 0
  24. Global Const TA_RIGHT = 2
  25. Global Const TA_CENTER = 6
  26. Global Const TA_TOP = 0
  27. Global Const TA_BOTTOM = 8
  28. Global Const TA_BASELINE = 24
  29.  
  30. '***********************************************************************
  31. '* * *   G L O B A L   V A R I A B L E   D E C L A R A T I O N S   * * *
  32. '***********************************************************************
  33. '---Default distance units, based on font space...
  34. Global gHStd As Integer
  35. Global gVStd As Integer
  36. '---Twips per pixel (horizontal & vertical)
  37. Global gTwpsPerPxlX As Integer
  38. Global gTwpsPerPxlY As Integer
  39.  
  40. '***********************************************************
  41. '* * *   D A T A   T Y P E   D E C L A R A T I O N S   * * *
  42. '***********************************************************
  43.  
  44. Type rtSysMetric
  45.   hgtCapBar As Integer
  46.   hgtFrame As Integer
  47.   wthFrame As Integer
  48.   hgtMenu As Integer
  49.   wthArrow As Integer
  50. End Type
  51. Global gSysMet As rtSysMetric
  52.  
  53. '*****************************************************************
  54. '* * *   D L L   F U N C T I O N   D E C L A R A T I O N S   * * *
  55. '*****************************************************************
  56. '===============================
  57. '*** API Functions
  58. '===============================
  59. Declare Function GetDeviceCaps Lib "GDI" (ByVal hDC As Integer, ByVal nIndex As Integer) As Integer
  60. Declare Function GetSystemMetrics Lib "User" (ByVal nIndex As Integer) As Integer
  61. Declare Function SetTextAlign Lib "GDI" (ByVal hDC As Integer, ByVal wFlags As Integer) As Integer
  62. Declare Function TextOut Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal lpString As String, ByVal nCount As Integer) As Integer
  63.  
  64.